﻿Public Class RCLogCategory

    Public Enum Priority
        ePriority_TRACE = 1
        ePriority_DEBUG
        ePriority_INFO
        ePriority_WARN
        ePriority_ERROR
        ePriority_FATAL
    End Enum

    Public Property strName As String
    Public Property intPriority As Priority
    Public Property strAppender As String

    Public Sub New(ByVal inName As String, ByVal inPriority As Priority, ByVal inAppender As String)
        strName = inName
        intPriority = inPriority
        strAppender = inAppender
    End Sub

    Public Function GetPriority() As String
        Select Case intPriority
            Case Priority.ePriority_TRACE : Return "TRACE"
            Case Priority.ePriority_DEBUG : Return "DEBUG"
            Case Priority.ePriority_INFO : Return "INFO"
            Case Priority.ePriority_WARN : Return "WARN"
            Case Priority.ePriority_ERROR : Return "ERROR"
            Case Priority.ePriority_FATAL : Return "FATAL"
            Case Else : Return ""
        End Select
    End Function

End Class
